home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / bob_ssa.inc < prev    next >
Encoding:
Text File  |  1998-08-30  |  8.8 KB  |  580 lines
  1. *---------------------------------------
  2. *
  3. *    â{âuò\Ī
  4. *
  5. *    òKÄEïZüAÆ┤òKÄEïZ
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. bob_ssa_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subi.w    #16,d1
  14.     subi.w    #32,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     addi.w    #$0039,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d1
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     subi.w    #16,d1
  32.     addi.w    #16,d2
  33.     addq.w    #1,d7
  34.     move.w    d1,(a6)+
  35.     move.w    d2,(a6)+
  36.     move.w    d7,(a6)+
  37.     move.w    #$0003,(a6)+
  38.  
  39.     addi.w    #16,d1
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     subi.w    #16,d1
  47.     addi.w    #16,d2
  48.     addq.w    #1,d7
  49.     move.w    d1,(a6)+
  50.     move.w    d2,(a6)+
  51.     move.w    d7,(a6)+
  52.     move.w    #$0003,(a6)+
  53.         
  54.     addi.w    #16,d1
  55.     addq.w    #1,d7
  56.     move.w    d1,(a6)+
  57.     move.w    d2,(a6)+
  58.     move.w    d7,(a6)+
  59.     move.w    #$0003,(a6)+
  60.  
  61.     subi.w    #16,d1
  62.     addi.w    #16,d2
  63.     addq.w    #1,d7
  64.     move.w    d1,(a6)+
  65.     move.w    d2,(a6)+
  66.     move.w    d7,(a6)+
  67.     move.w    #$0003,(a6)+
  68.  
  69.     addi.w    #16,d1
  70.     addq.w    #1,d7
  71.     move.w    d1,(a6)+
  72.     move.w    d2,(a6)+
  73.     move.w    d7,(a6)+
  74.     move.w    #$0003,(a6)+
  75.  
  76.     rts
  77. @@:
  78.     addi.w    #$403a,d7
  79.     move.w    d1,(a6)+
  80.     move.w    d2,(a6)+
  81.     move.w    d7,(a6)+
  82.     move.w    #$0003,(a6)+
  83.  
  84.     addi.w    #16,d1
  85.     subq.w    #1,d7
  86.     move.w    d1,(a6)+
  87.     move.w    d2,(a6)+
  88.     move.w    d7,(a6)+
  89.     move.w    #$0003,(a6)+
  90.  
  91.     subi.w    #16,d1
  92.     addi.w    #16,d2
  93.     addq.w    #3,d7
  94.     move.w    d1,(a6)+
  95.     move.w    d2,(a6)+
  96.     move.w    d7,(a6)+
  97.     move.w    #$0003,(a6)+
  98.  
  99.     addi.w    #16,d1
  100.     subq.w    #1,d7
  101.     move.w    d1,(a6)+
  102.     move.w    d2,(a6)+
  103.     move.w    d7,(a6)+
  104.     move.w    #$0003,(a6)+
  105.  
  106.     subi.w    #16,d1
  107.     addi.w    #16,d2
  108.     addq.w    #3,d7
  109.     move.w    d1,(a6)+
  110.     move.w    d2,(a6)+
  111.     move.w    d7,(a6)+
  112.     move.w    #$0003,(a6)+
  113.  
  114.     addi.w    #16,d1
  115.     subq.w    #1,d7
  116.     move.w    d1,(a6)+
  117.     move.w    d2,(a6)+
  118.     move.w    d7,(a6)+
  119.     move.w    #$0003,(a6)+
  120.  
  121.     subi.w    #16,d1
  122.     addi.w    #16,d2
  123.     addq.w    #3,d7
  124.     move.w    d1,(a6)+
  125.     move.w    d2,(a6)+
  126.     move.w    d7,(a6)+
  127.     move.w    #$0003,(a6)+
  128.  
  129.     addi.w    #16,d1
  130.     subq.w    #1,d7
  131.     move.w    d1,(a6)+
  132.     move.w    d2,(a6)+
  133.     move.w    d7,(a6)+
  134.     move.w    #$0003,(a6)+
  135.  
  136.     rts
  137. *---------------------------------------
  138. bob_ssa_a:
  139.     move.w    C_X(a1),d1
  140.     move.w    C_Y(a1),d2
  141.     subi.w    #24,d1
  142.     subi.w    #32,d2
  143.     tst.w    C_LR_F(a1)
  144.     bne    @f
  145.  
  146.     addi.w    #$0041,d7
  147.     move.w    d1,(a6)+
  148.     move.w    d2,(a6)+
  149.     move.w    d7,(a6)+
  150.     move.w    #$0003,(a6)+
  151.  
  152.     addi.w    #16,d1
  153.     addq.w    #1,d7
  154.     move.w    d1,(a6)+
  155.     move.w    d2,(a6)+
  156.     move.w    d7,(a6)+
  157.     move.w    #$0003,(a6)+
  158.  
  159.     addi.w    #16,d1
  160.     addq.w    #1,d7
  161.     move.w    d1,(a6)+
  162.     move.w    d2,(a6)+
  163.     move.w    d7,(a6)+
  164.     move.w    #$0003,(a6)+
  165.  
  166.     subi.w    #32,d1
  167.     addi.w    #16,d2
  168.     addq.w    #1,d7
  169.     move.w    d1,(a6)+
  170.     move.w    d2,(a6)+
  171.     move.w    d7,(a6)+
  172.     move.w    #$0003,(a6)+
  173.  
  174.     addi.w    #16,d1
  175.     addq.w    #1,d7
  176.     move.w    d1,(a6)+
  177.     move.w    d2,(a6)+
  178.     move.w    d7,(a6)+
  179.     move.w    #$0003,(a6)+
  180.  
  181.     addi.w    #16,d1
  182.     addq.w    #1,d7
  183.     move.w    d1,(a6)+
  184.     move.w    d2,(a6)+
  185.     move.w    d7,(a6)+
  186.     move.w    #$0003,(a6)+
  187.  
  188.     subi.w    #32,d1
  189.     addi.w    #16,d2
  190.     addq.w    #1,d7
  191.     move.w    d1,(a6)+
  192.     move.w    d2,(a6)+
  193.     move.w    d7,(a6)+
  194.     move.w    #$0003,(a6)+
  195.  
  196.     addi.w    #16,d1
  197.     addq.w    #1,d7
  198.     move.w    d1,(a6)+
  199.     move.w    d2,(a6)+
  200.     move.w    d7,(a6)+
  201.     move.w    #$0003,(a6)+
  202.  
  203.     addi.w    #16,d1
  204.     addq.w    #1,d7
  205.     move.w    d1,(a6)+
  206.     move.w    d2,(a6)+
  207.     move.w    d7,(a6)+
  208.     move.w    #$0003,(a6)+
  209.  
  210.     subi.w    #32,d1
  211.     addi.w    #16,d2
  212.     addq.w    #1,d7
  213.     move.w    d1,(a6)+
  214.     move.w    d2,(a6)+
  215.     move.w    d7,(a6)+
  216.     move.w    #$0003,(a6)+
  217.  
  218.     addi.w    #16,d1
  219.     addq.w    #1,d7
  220.     move.w    d1,(a6)+
  221.     move.w    d2,(a6)+
  222.     move.w    d7,(a6)+
  223.     move.w    #$0003,(a6)+
  224.  
  225.     addi.w    #16,d1
  226.     addq.w    #1,d7
  227.     move.w    d1,(a6)+
  228.     move.w    d2,(a6)+
  229.     move.w    d7,(a6)+
  230.     move.w    #$0003,(a6)+
  231.  
  232.     rts
  233.  
  234. @@:
  235.     addi.w    #$4043,d7
  236.     move.w    d1,(a6)+
  237.     move.w    d2,(a6)+
  238.     move.w    d7,(a6)+
  239.     move.w    #$0003,(a6)+
  240.  
  241.     addi.w    #16,d1
  242.     subq.w    #1,d7
  243.     move.w    d1,(a6)+
  244.     move.w    d2,(a6)+
  245.     move.w    d7,(a6)+
  246.     move.w    #$0003,(a6)+
  247.  
  248.     addi.w    #16,d1
  249.     subq.w    #1,d7
  250.     move.w    d1,(a6)+
  251.     move.w    d2,(a6)+
  252.     move.w    d7,(a6)+
  253.     move.w    #$0003,(a6)+
  254.  
  255.     subi.w    #32,d1
  256.     addi.w    #16,d2
  257.     addq.w    #5,d7
  258.     move.w    d1,(a6)+
  259.     move.w    d2,(a6)+
  260.     move.w    d7,(a6)+
  261.     move.w    #$0003,(a6)+
  262.  
  263.     addi.w    #16,d1
  264.     subq.w    #1,d7
  265.     move.w    d1,(a6)+
  266.     move.w    d2,(a6)+
  267.     move.w    d7,(a6)+
  268.     move.w    #$0003,(a6)+
  269.  
  270.     addi.w    #16,d1
  271.     subq.w    #1,d7
  272.     move.w    d1,(a6)+
  273.     move.w    d2,(a6)+
  274.     move.w    d7,(a6)+
  275.     move.w    #$0003,(a6)+
  276.  
  277.     subi.w    #32,d1
  278.     addi.w    #16,d2
  279.     addq.w    #5,d7
  280.     move.w    d1,(a6)+
  281.     move.w    d2,(a6)+
  282.     move.w    d7,(a6)+
  283.     move.w    #$0003,(a6)+
  284.  
  285.     addi.w    #16,d1
  286.     subq.w    #1,d7
  287.     move.w    d1,(a6)+
  288.     move.w    d2,(a6)+
  289.     move.w    d7,(a6)+
  290.     move.w    #$0003,(a6)+
  291.  
  292.     addi.w    #16,d1
  293.     subq.w    #1,d7
  294.     move.w    d1,(a6)+
  295.     move.w    d2,(a6)+
  296.     move.w    d7,(a6)+
  297.     move.w    #$0003,(a6)+
  298.  
  299.     subi.w    #32,d1
  300.     addi.w    #16,d2
  301.     addq.w    #5,d7
  302.     move.w    d1,(a6)+
  303.     move.w    d2,(a6)+
  304.     move.w    d7,(a6)+
  305.     move.w    #$0003,(a6)+
  306.  
  307.     addi.w    #16,d1
  308.     subq.w    #1,d7
  309.     move.w    d1,(a6)+
  310.     move.w    d2,(a6)+
  311.     move.w    d7,(a6)+
  312.     move.w    #$0003,(a6)+
  313.  
  314.     addi.w    #16,d1
  315.     subq.w    #1,d7
  316.     move.w    d1,(a6)+
  317.     move.w    d2,(a6)+
  318.     move.w    d7,(a6)+
  319.     move.w    #$0003,(a6)+
  320.  
  321.     rts
  322.  
  323. *---------------------------------------
  324. bob_ssa_t:
  325.     move.w    C_X(a1),d1
  326.     move.w    C_Y(a1),d2
  327.     subi.w    #16,d1
  328.     subi.w    #32,d2
  329.     tst.w    C_LR_F(a1)
  330.     bne    @f
  331.  
  332.     addi.w    #$004d,d7
  333.     move.w    d1,(a6)+
  334.     move.w    d2,(a6)+
  335.     move.w    d7,(a6)+
  336.     move.w    #$0003,(a6)+
  337.  
  338.     addi.w    #16,d1
  339.     addq.w    #1,d7
  340.     move.w    d1,(a6)+
  341.     move.w    d2,(a6)+
  342.     move.w    d7,(a6)+
  343.     move.w    #$0003,(a6)+
  344.  
  345.     subi.w    #16,d1
  346.     addi.w    #16,d2
  347.     addq.w    #1,d7
  348.     move.w    d1,(a6)+
  349.     move.w    d2,(a6)+
  350.     move.w    d7,(a6)+
  351.     move.w    #$0003,(a6)+
  352.  
  353.     addi.w    #16,d1
  354.     addq.w    #1,d7
  355.     move.w    d1,(a6)+
  356.     move.w    d2,(a6)+
  357.     move.w    d7,(a6)+
  358.     move.w    #$0003,(a6)+
  359.  
  360.     subi.w    #16,d1
  361.     addi.w    #16,d2
  362.     addq.w    #1,d7
  363.     move.w    d1,(a6)+
  364.     move.w    d2,(a6)+
  365.     move.w    d7,(a6)+
  366.     move.w    #$0003,(a6)+
  367.         
  368.     addi.w    #16,d1
  369.     addq.w    #1,d7
  370.     move.w    d1,(a6)+
  371.     move.w    d2,(a6)+
  372.     move.w    d7,(a6)+
  373.     move.w    #$0003,(a6)+
  374.  
  375.     subi.w    #16,d1
  376.     addi.w    #16,d2
  377.     addq.w    #1,d7
  378.     move.w    d1,(a6)+
  379.     move.w    d2,(a6)+
  380.     move.w    d7,(a6)+
  381.     move.w    #$0003,(a6)+
  382.  
  383.     addi.w    #16,d1
  384.     addq.w    #1,d7
  385.     move.w    d1,(a6)+
  386.     move.w    d2,(a6)+
  387.     move.w    d7,(a6)+
  388.     move.w    #$0003,(a6)+
  389.  
  390.     rts
  391. @@:
  392.     addi.w    #$404e,d7
  393.     move.w    d1,(a6)+
  394.     move.w    d2,(a6)+
  395.     move.w    d7,(a6)+
  396.     move.w    #$0003,(a6)+
  397.  
  398.     addi.w    #16,d1
  399.     subq.w    #1,d7
  400.     move.w    d1,(a6)+
  401.     move.w    d2,(a6)+
  402.     move.w    d7,(a6)+
  403.     move.w    #$0003,(a6)+
  404.  
  405.     subi.w    #16,d1
  406.     addi.w    #16,d2
  407.     addq.w    #3,d7
  408.     move.w    d1,(a6)+
  409.     move.w    d2,(a6)+
  410.     move.w    d7,(a6)+
  411.     move.w    #$0003,(a6)+
  412.  
  413.     addi.w    #16,d1
  414.     subq.w    #1,d7
  415.     move.w    d1,(a6)+
  416.     move.w    d2,(a6)+
  417.     move.w    d7,(a6)+
  418.     move.w    #$0003,(a6)+
  419.  
  420.     subi.w    #16,d1
  421.     addi.w    #16,d2
  422.     addq.w    #3,d7
  423.     move.w    d1,(a6)+
  424.     move.w    d2,(a6)+
  425.     move.w    d7,(a6)+
  426.     move.w    #$0003,(a6)+
  427.  
  428.     addi.w    #16,d1
  429.     subq.w    #1,d7
  430.     move.w    d1,(a6)+
  431.     move.w    d2,(a6)+
  432.     move.w    d7,(a6)+
  433.     move.w    #$0003,(a6)+
  434.  
  435.     subi.w    #16,d1
  436.     addi.w    #16,d2
  437.     addq.w    #3,d7
  438.     move.w    d1,(a6)+
  439.     move.w    d2,(a6)+
  440.     move.w    d7,(a6)+
  441.     move.w    #$0003,(a6)+
  442.  
  443.     addi.w    #16,d1
  444.     subq.w    #1,d7
  445.     move.w    d1,(a6)+
  446.     move.w    d2,(a6)+
  447.     move.w    d7,(a6)+
  448.     move.w    #$0003,(a6)+
  449.  
  450.     rts
  451. *---------------------------------------
  452. bo2_ssa:
  453.     move.w    C_X(a1),d1
  454.     move.w    C_Y(a1),d2
  455.     subi.w    #16,d1
  456.     subi.w    #32,d2
  457.     tst.w    C_LR_F(a1)
  458.     bne    @f
  459.  
  460.     addi.w    #$006f,d7
  461.     move.w    d1,(a6)+
  462.     move.w    d2,(a6)+
  463.     move.w    d7,(a6)+
  464.     move.w    #$0003,(a6)+
  465.  
  466.     addi.w    #16,d1
  467.     addq.w    #1,d7
  468.     move.w    d1,(a6)+
  469.     move.w    d2,(a6)+
  470.     move.w    d7,(a6)+
  471.     move.w    #$0003,(a6)+
  472.  
  473.     subi.w    #16,d1
  474.     addi.w    #16,d2
  475.     addq.w    #1,d7
  476.     move.w    d1,(a6)+
  477.     move.w    d2,(a6)+
  478.     move.w    d7,(a6)+
  479.     move.w    #$0003,(a6)+
  480.  
  481.     addi.w    #16,d1
  482.     addq.w    #1,d7
  483.     move.w    d1,(a6)+
  484.     move.w    d2,(a6)+
  485.     move.w    d7,(a6)+
  486.     move.w    #$0003,(a6)+
  487.  
  488.     subi.w    #16,d1
  489.     addi.w    #16,d2
  490.     addq.w    #1,d7
  491.     move.w    d1,(a6)+
  492.     move.w    d2,(a6)+
  493.     move.w    d7,(a6)+
  494.     move.w    #$0003,(a6)+
  495.         
  496.     addi.w    #16,d1
  497.     addq.w    #1,d7
  498.     move.w    d1,(a6)+
  499.     move.w    d2,(a6)+
  500.     move.w    d7,(a6)+
  501.     move.w    #$0003,(a6)+
  502.  
  503.     subi.w    #16,d1
  504.     addi.w    #16,d2
  505.     addq.w    #1,d7
  506.     move.w    d1,(a6)+
  507.     move.w    d2,(a6)+
  508.     move.w    d7,(a6)+
  509.     move.w    #$0003,(a6)+
  510.  
  511.     addi.w    #16,d1
  512.     addq.w    #1,d7
  513.     move.w    d1,(a6)+
  514.     move.w    d2,(a6)+
  515.     move.w    d7,(a6)+
  516.     move.w    #$0003,(a6)+
  517.  
  518.     rts
  519. @@:
  520.     addi.w    #$4070,d7
  521.     move.w    d1,(a6)+
  522.     move.w    d2,(a6)+
  523.     move.w    d7,(a6)+
  524.     move.w    #$0003,(a6)+
  525.  
  526.     addi.w    #16,d1
  527.     subq.w    #1,d7
  528.     move.w    d1,(a6)+
  529.     move.w    d2,(a6)+
  530.     move.w    d7,(a6)+
  531.     move.w    #$0003,(a6)+
  532.  
  533.     subi.w    #16,d1
  534.     addi.w    #16,d2
  535.     addq.w    #3,d7
  536.     move.w    d1,(a6)+
  537.     move.w    d2,(a6)+
  538.     move.w    d7,(a6)+
  539.     move.w    #$0003,(a6)+
  540.  
  541.     addi.w    #16,d1
  542.     subq.w    #1,d7
  543.     move.w    d1,(a6)+
  544.     move.w    d2,(a6)+
  545.     move.w    d7,(a6)+
  546.     move.w    #$0003,(a6)+
  547.  
  548.     subi.w    #16,d1
  549.     addi.w    #16,d2
  550.     addq.w    #3,d7
  551.     move.w    d1,(a6)+
  552.     move.w    d2,(a6)+
  553.     move.w    d7,(a6)+
  554.     move.w    #$0003,(a6)+
  555.  
  556.     addi.w    #16,d1
  557.     subq.w    #1,d7
  558.     move.w    d1,(a6)+
  559.     move.w    d2,(a6)+
  560.     move.w    d7,(a6)+
  561.     move.w    #$0003,(a6)+
  562.  
  563.     subi.w    #16,d1
  564.     addi.w    #16,d2
  565.     addq.w    #3,d7
  566.     move.w    d1,(a6)+
  567.     move.w    d2,(a6)+
  568.     move.w    d7,(a6)+
  569.     move.w    #$0003,(a6)+
  570.  
  571.     addi.w    #16,d1
  572.     subq.w    #1,d7
  573.     move.w    d1,(a6)+
  574.     move.w    d2,(a6)+
  575.     move.w    d7,(a6)+
  576.     move.w    #$0003,(a6)+
  577.  
  578.     rts
  579. *---------------------------------------
  580.